home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d21 / printdv.arc / PRINTDV.BAS next >
BASIC Source File  |  1988-03-01  |  281b  |  13 lines
  1. 'program to run in DV window to properly print a file, goddammit
  2.     cls
  3.     input "What filename.ext would you like to print"; filnam$
  4.     open filnam$ for input as #1
  5.     width lprint 132
  6.     while not EOF(1)
  7.         line input #1, a$
  8.         lprint a$
  9.     wend
  10.     print"Printer is finished."
  11.     end
  12.  
  13.